home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / demo / mag / trash3_2.lha / fuentes / TEXTURE-FUENTES.lha / tunnel9.s < prev    next >
Text File  |  1996-09-21  |  5KB  |  277 lines
  1. ;=========================================================
  2. ; 
  3. ; This chunky2planar routine was made by Ludde/Encore.
  4. ;
  5. ; You may uses it for whatever you want, but if you do
  6. ; it would be nice if you gave me credits if you release 
  7. ; anything! :)
  8. ;
  9. ; Send bug-reports, comments, optimise-tips, etc to:
  10. ;               
  11. ;     e-mail: ludvigp@ifi.uio.no       
  12. ;
  13. ;==========================================================
  14.  
  15.         IFD     _PHXASS_
  16.         MACHINE 68030
  17.         ENDIF
  18.  
  19.  
  20.         include "Startup_macros.i"
  21.         include "custom.i"
  22.  
  23. ;------------------ Startup Options ------------------------
  24.  
  25. KillSystem              =       1
  26. SaveInterrupts          =       1
  27. NewCopperList           =       1
  28.  
  29. ScreenWidth             =       320
  30. ScreenHeight            =       128
  31. Bitplanes               =       8
  32.  
  33. ScreenSize              =       ScreenWidth*ScreenHeight
  34. BitplaneSize            =       ScreenSize/8
  35.  
  36. ;-----------------------------------------------------------
  37.  
  38. ChunkyWidth             =       160
  39. ChunkyHeight            =       128
  40.  
  41. ChunkyPixels            =       ChunkyWidth*ChunkyHeight
  42.  
  43. ;ClearChunkyBuffer
  44.  
  45.         Section MainProgram,code
  46.  
  47. j:
  48.  
  49.         SaveSystem
  50.  
  51.         ClrINT  ALL
  52.         ClrINTQ ALL
  53.         ClrDMA  ALL     
  54.  
  55.         jsr     SetupCopperList
  56.  
  57. ;---------
  58.     bsr    _texture
  59. ;---------
  60.  
  61.         move.l  VectorBase,a0
  62.         move.l  #Lev3InterruptHandler,$6c(a0)
  63.  
  64.         SetDMA  DMAF_MASTER!DMAF_RASTER!DMAF_COPPER!DMAF_BLITTER!DMAF_SPRITE
  65.         SetINT  INTF_INTEN!INTF_VERTB
  66.  
  67. MainLoop:
  68.         RastPos s_Render_time
  69.         bsr     Render
  70.         RastPos e_Render_time
  71.  
  72.                                         ;Different routines:
  73.         jsr     c2p_2_Pass              ;1 cpu pass   = c2p_1_pass
  74.                                         ;2 cpu passes = c2p_2_pass
  75.  
  76.         WaitMouse       MLeft,MainLoop
  77.  
  78.         RestoreSystem
  79.  
  80.         move.w  e_Render_time(pc),d0
  81.         sub.w   s_Render_time(pc),d0            ;Cpu c2p rastertime
  82.  
  83.         moveq   #0,d1
  84.         move.w  e_c2p_time(pc),d1
  85.         sub.w   s_c2p_time(pc),d1               ;Cpu c2p rastertime
  86.  
  87.         move.l  TellFrames,d7
  88.         muls.l  #50,d7
  89.         divs.l  TellTicks,d7                    ;Average Frame Rate
  90.  
  91.         rts     
  92.  
  93. s_c2p_time:     dc.w    0
  94. e_c2p_time:     dc.w    0
  95. s_Render_time:  dc.w    0
  96. e_Render_time:  dc.w    0
  97. ;-----------------------------------------------------RENDER
  98.  
  99. Render:
  100.                             ; Here YOU do your stuff! :)
  101. tunel1:
  102.  
  103.     moveq    #0,d1    ; x adder
  104. tunnel:    ;bsr    startq
  105.  
  106.     
  107. mouse:    ;bsr    waitline
  108.     
  109. ;---
  110. ; Texture tunnel code...
  111. ;---
  112.  
  113.  
  114.     movem.l    d0-a6,-(sp)
  115.  
  116.     lea    X,A1    ; X table
  117.     lea    Y,A2    ; Y table
  118.     lea    Texture,A3    ; Texture
  119.     lea    ChunkyBuffer+14*160,A4    ; Buffer
  120.  
  121.     moveq    #0,D6
  122.     moveq    #0,D2
  123.     moveq    #0,D3
  124.     moveq    #0,D4    ; Delta value...
  125.  
  126.     move.w    deltax,d5
  127.     move.w    deltay,d1
  128.     
  129.     move.w    #99,D7    ; Y loop
  130.  
  131. do_y    move.w    #159,D6    ; X loop
  132.  
  133. do_x    move.b    (A1)+,D2    ; X value...
  134.  
  135.     add.b    D5,D2    ; X add
  136.     
  137.     move.b    (A2)+,D3    ; Y value...
  138.     add.b    D1,D3
  139.  
  140.     lsl.w    #8,D3
  141.     add.w    D2,D3    ; (X + Y*256)
  142.  
  143.     move.b    (A3,D3.l),(A4)+
  144.  
  145.  
  146.     dbf    D6,do_x
  147.  
  148. ;    addq.w    #1,d1    ; <----------------
  149.  
  150. ;    add.b    #1,D5
  151.     dbf    D7,do_y
  152.  
  153.     addq.w    #2,deltay    ; Delta Y
  154.     addq.w    #2,deltax    ; Delta X
  155.  
  156.     movem.l    (sp)+,d0-a6
  157.     rts
  158.  
  159. X    incbin    x.bin
  160. Y    incbin    y.bin
  161.  
  162. Texture    blk.b    256*256,0
  163. Secure    blk.b   512,0
  164.  
  165. deltax    dc.w    0
  166. deltay    dc.w    0
  167.  
  168. ;-------------------------------
  169.  
  170. _texture
  171.     bsr    InitRND
  172.  
  173.     lea    RNDSeed,a1
  174.     lea    Texture,a2
  175.     
  176.     move    #$FFFF,d7
  177.  
  178. do_texture
  179.     moveq    #0,d0
  180.     moveq    #32,d1
  181.     
  182.     bsr    RND
  183.     
  184.     move.b    d0,(a2)+
  185.  
  186.     dbf    d7,do_texture
  187.  
  188.     move.w    #255,d7
  189.     lea    Secure,a2
  190. extra_txt
  191.     moveq    #0,d0
  192.     moveq    #32,d1
  193.  
  194.     bsr    RND
  195.  
  196.     move.b    d0,(a2)+
  197.  
  198.     dbf    d7,extra_txt
  199.  
  200. ;    rts            
  201. ;-------------
  202.  
  203. inter2    moveq    #10,d6
  204. inter21
  205.     lea    Texture,a1
  206.     lea    Texture+256,a2
  207.     lea    Texture+1,a3
  208.     lea    Texture+2,a4
  209.     lea    Texture,a5
  210.  
  211.  
  212.     move    #$FFFF,d7
  213.  
  214. interpol    
  215.     moveq    #0,d0
  216.     moveq    #0,d1
  217.     moveq    #0,d2
  218.     moveq    #0,d3
  219.  
  220.     move.b    (a1)+,d0
  221.     move.b    (a2)+,d1
  222.     move.b    (a3)+,d2
  223.     move.b    (a4)+,d3
  224.  
  225.     add    d0,d1
  226.     add    d2,d3
  227.     add    d1,d3
  228.  
  229.     lsr.w    #2,d3
  230.  
  231.     move.b    d3,(a5)+
  232.  
  233.     dbf    d7,interpol            
  234.  
  235.     dbf    d6,inter21    
  236.  
  237.     RTS
  238.  
  239. * D0,D1 - A1
  240. * In  : D1 Numero maximo
  241. * Out : D0 Numero entre 1 y D1
  242.  
  243. RND    LEA    RNDSeed,A1    ; D0 = Numero entre 1 y D1
  244.     MOVE.L    (A1),D0
  245.     ADD.L    D0,D0
  246.     BHI.s    .OVER
  247.     EORI.L    #$1D872B41,D0
  248. .OVER    MOVE.L    D0,(A1)
  249.     ANDI.L    #$FFFF,D0
  250.     DIVU    D1,D0
  251.     SWAP    D0
  252.  
  253.     RTS
  254.  
  255. InitRND    LEA    RNDSeed,A0
  256.     MOVE.L    $DFF006,D0
  257.     NEG.W    D0
  258.     MOVE.L    D0,(A0)
  259.         rts      
  260.                  
  261. RNDSeed    dc.l    0
  262.  
  263. ;-----------------------------------------------------
  264.  
  265.         Section ChunkyStuff,bss
  266.         
  267. ChunkyBuffer:
  268.         blk.b   ChunkyPixels
  269. ChunkyEnd:
  270. ;Texture    ds.b    256*256
  271.  
  272.  
  273. ;-----------------------------------------------------------------------------
  274.         include "Blitter_c2p.i"
  275.         include "Startup_code.i"
  276.  
  277.